unit UtilUnt;

interface

uses Variants, SysUtils;

  function GetDbStr(const Value: string): Variant;

implementation

function GetDbStr(const Value: string): Variant;
begin
  if Trim(Value) = '' then
    Result := null
  else
    Result := Trim(Value);
end;

end.
 